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Senior  leadership  is  committed  to  giving  mega 
programming  a  fair  test 
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■  Define  variability  early 

■  Standardize  terminologies  (Synthesis/Darts) 
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Navigation/Communication  Domain  Synopsis 

NAVIGATION/COMMUNICATION  ASSUMPTIONS 

COMMONALITIES  . 


2.5  Self  test  for  TACAN  radios  have  the  following  commonalities: 
o  Each  has  a  set  of  discrete  events  that  occur  over  a  finite  amount  of  dme. 

0  There  is  a  way  to  manually  initiate  self  test 
0  Self  test  results  in  TACAN  ou^uts  being  driven  to  predefined  values. 

Justification:  Based  on  analysis  of  self  test  characteristics  using  3  aircraft  as  examples.  (T34.  T44. 
T45). 


VARIABILITIES 


@2.1.10. 
2.1.10. 
2.1.10. 


2.1.10  Self  Test  characteristics  vary  for  each  type  of  radio  in  the  domain. 

2.1.10.1i^e  ways  that  self  test  is  initiated  varies  for  each  type  of  radio.  ■ 

10.2  The  duration  of  self  test  varies  for  each  type  of  radio. 

10.3  The  characteristics  that  ate  exhibited  during  self  test  varies  for  each  radio. 

2.1.10.4  The  way  self  test  is  terminated  varies  for  each  type  of  radio. 

2.1.10.5  The  interaction  of  TACAN/VOR  self  test  with  other  systems  varies  for  given  cockpit 
configurations. 

2. 1.10.6  SclfJTcst  may  or  may  not  exist  for  TACAN/VOR. 

Justification:  For  real  aircraft  in  the  domain,  detailed  self  test  characteristics  will  vary. 


EXCLUSIONS 
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Domain  experts  are  essential 

Design  of  Decision  Model  should  be  driven  by  how  best  to 
represent  variability,  not  presentation  format 
Decision  Groups  should  be  kept  small 


DECISION  MODELS 


PRODUCT 

REQUIREMENTS 


& 

Navigation/Communication  Product  Requirements 

1.  INTRODUCTION 

2.  REQUIREMENTS. 

2.1  Segment  Definition. 

2.2  Characteristics. 

2.2.1  Performance  Characteristics. 

2.2.1. 1  Segment  Modes  and  States. 

2.2. 1.2  Nav/Comm  Segment  Functions.  The  following  functions  shall  be 

accomplished  by  the  Nav/Comm  segment. 

2.2.1. 2.1  Nav/Comm  Segment  Support  Function. 

//Radio.Navigation.Aids  then 

//VHF_NavjSystem  then 

// VHF_Nav_Self_Test_Requlred  then 

There  shall  be  a  self  test  function  for  the  VHP  Nav  system. 

//VORjSelfJTestJnltlated  (Push  and  Hold)  then 
The  VOR  self  test  shall  simulate  the  characteristics  of  seif 
test  by  pressing  and  holding  the  self  test  switch . 
end  if 

end  if 

end  if 

/YTACAN_System  then 

//TACAN_Self_Test_Required  then 

There  shall  be  a  self  test  function  for  the  TACAN  system.  ^ 
//TACAN^SelfJTestJnitiated  (Push  and  Ho\dythen  ^ 
The  TACAN  self  test  shall  be  initiated  by  a  press  and  hold 
button. 
end  if 

end  if 

end  if 


end  if 
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Process  Requirements 
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TACAN  DECISION  GROUP 


To  From  Masked 
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Architecture 
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Domain  Architecture  for  Reusabie  Training  Systems  (DARTS) 


Simulator  Architecture 
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—  set  seif  test  to  active 


selMest_attive  « true 
endif 

<61^  If  P_TAC_ST_PUSH_AND_HOLD>  —  if  it's  a  press  and  hold  push  button, 
if  selfjest_actl^te  » true’  —  Self  test  button  pressed  then 
self_TesCActivate  « true  —  set  self  test  to  active> 
endif  ^ 

<else> 

null;  —  none  or  other  manual  self  test  initiation 
<endlf> 


—  process  self  test 
if  self  test  active 
increment  selfjestjimer; 

—  check  for  premature  termination 

<lf  P_TAC_TERM_WITH_CHAN  then>  —  if  TACAN  self  test  terminated  by  change  in 

—  channel. 

if  changejn_channel  then 
terminate_self_test 
endif 
<endlf> 

<if  other  termination  condition  then> 

Terminate_self_lest 
<endlf> 

—  now  determine  the  phase 
phasejound  =  false 
loop  for  each  phase 

if  timer  <  phase  end  time  then 
phase  =  loop  index; 
phasejound  =  true 
exit  loop: 
endloop 

If  phasejound  =  false 
terminate_selfjest: 
endif 

endif;  —  end  process  self  test  logic 


—  initialize  a  flag  for  search  loop. 

—  for  each  phase  of  time  that’s  defined  In  self  test. 
—  see  if  the  timer  falls  into  that  time  slot. 

—  set  the  phase  found  flag 

—  set  the  phase  found  flag 


if  all  phases  have  run  to  completion. 


procedure  Terminate_Self_Test: 


COMPONENT  DESIGN 
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Generation  Design 

Architecture  Map  -  provides  the  mapping  between  the  architecture  nodes  and  the  instan¬ 
tiation  parameters.  This  defines  what  architectural  nodes  are  required  given  an  application 
model  (instance  of  the  domain). 

NAV/COMM  Segment  Exec 

If  Navigatlon_Communication_System  =  Yes 

Radio  Navigation  Aids 

If  Radio_Navigatlon_Aids  =  Yes 

Pilot  TACAN  Control 

If  TACAN_Systems  =  Yes  and  (Pilot  is  an  element  of  TACAN_Crew_Locations) 
Pilot  TACAN  Resolve  Power 

TACAN_Systems  =  Yes  and  (Pilot  is  an  element  of  TACAN_Crew_Locations} 

Pilot  TACAN  Determine  Seif  Test  Status 

If  Pilot_TACAN_Self_Test_Required  «  Yes 

Pilot  TACAN  Maintain  Station  Data 

If  TACAN_Systems  =  Yes  and  (Pilot  is  an  element  of  TACAN_Crew_Locations} 
Calculate  Pitot  TACAN  Nav  Outputs 

If  TACAN_Systems  =  Yes  and  (Pilot  is  an  element  of  TACAN_Crew_Locations} 

Calculate  Pilot  TACAN  Control  Head  Outputs 

If  TACAN_Systems  =  Yes  and  (Pilot  Is  an  element  of  TACAN_Crew_Locations} 

Pilot  VOR  Control 

If  VHF_Nav_System  =  Yes  and  (Pilot  is  an  element  of  VOR_Crew_Locations} 
Pilot  VOR  Resolve  Power 

If  VHF_Nav_System  =  Yes  and  (Pilot  is  an  element  of  VOR_Crew_Locations} 

Pilot  VOR  Determine  Self  Test  Status 

If  Pilot_VHF_Nav_Self_Test_Required  =  Yes 

Pilot  VOR  Maintain  Station  Data 

If  VHF_Nav_System  =  Yes  and  (Pilot  is  an  element  of  VOR_Crew_Locaiions} 
Calculate  Pilot  VOR  Nav  Outputs 

If  VHF_Nav_System  =  Yes  and  (Pilot  is  an  element  of  VOR_Crew_Locations) 

Calculate  Pilot  VOR  Control  Head  Outputs 

If  VHF_Nav_System  =  Yes  and  (Pilot  is  an  element  of  VOR_Crew  _Loca:ions) 


ARCHITECTURE 

MAPPING 


COMPONENT 

MAPPING 


Component  Map  -  provides  the  mapping  between  the  architectural  nodes  and  the  adapt¬ 
able  components  that  fill  the  node. 

NAV/COMM  Segment  Exec 

Use  Component;  Package.  Navigation_Communication_Executive 
Radio  Navigation  Aids 

Use  Component:  Package.  Radio_Nav_Aids_Subsystem_Controller 

Pilot  TACAN  Control 

Use  Component:  Package.  TACAN 


Pilot  TACAN  Resolve  Power 


Use  Component:  Procedure.  TACAN_Resolve_Power 


Pilot  TACAN  Determine  Self  Test  Status 

Use  Component:  Package.  SeifJTest 


Pilot  TACAN  Maintain  Station  Data 

Use  Component:  Procedure.  Maintain.Station  Data 


Calculate  Pilot  TACAN  Nav  Outputs 

Use  Component:  Procedure.  TACAN_Nav_Outputs 

Calculate  Pilot  TACAN  Control  Head  Outputs 

Use  Component;  Procedure.  TACAN_ControLHead_Outputs 


Pilot  VOR  Control 

Use  Component:  Package.  VOR 

Pilot  VOR  Resolve  Power 

Use  Component:  Procedure.  VOR_Resolve_Power 

Pilot  VOR  Determine  Self  Test  Status 

Use  Component:  Package,  SelfJTest 

Pilot  VOR  Maintain  Station  Data 

Use  Component:  Procedure.  Maintain_Statioh_Data 

Calculate  Pilot  VOR  Nav  Outputs 

Use  Component:  Procedure.  VOR_Nav_Outputs 

Calculate  Pilot  VOR  Control  Head  Outputs 

Use  Component:  Procedure.  VOR_Control_Head_Outputs 
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Application  Engineering  process  was  developed 
Application  Engineering  process  exacted  in  SEE 
Lessons  learned  were  documented 
•  ADA  skills  are  required 
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(def function 


(if  (eq 
«  (bind 

(bind 


I  ( i f  ( eq 

l|  (bind 

I  (bind 


) 


make-TACANSel fTest  (?spawninst  ?value) 

?TACAN_C_answer_value  Yes)  then 
?value  Copilot) 

?nvalues  (+  ?nvalues  1)  ) 

?TACAN_P_answer_value  Yes)  then 
?value  Pilot) 

?nvaiues  (+  ?nvalues  1)  ) 


(bind  ?newsym  (sym-cat  ?value  “TACSlfTestlnit “ ) ) 
(bind  ?newdesc  (str-cat  ?value  "TACSlfTestlnit")) 


(bind  ?newnam 
(bind  ?qnewsym 
(bind  ?qnevmam 


(symbol -to- instance-name  ?newsym) ) 
(sym-cat  ?newsym  "Question")) 
(symbol -to- instance-name  ?qnewsym) ) 


1(ma)ce-instance  ?newnam  of  MULTI_DECISION 
(Design_Group_ID  TACANSel fTest) 

(Quest ion_Name  ?qnewsym) 

(One_Line_Desc  ?newdesc) 

(InstancelnstantiatedBy  ?spawninst ) 

(FurtherQFunction  make-buttonpress) 

(Multi_Entry  nil)) 

(make-instance  ?qnewnam  of  MULTI PLE_CHOICE_QUESTION 
(Decision_Name  ?newsym) 

I  (Question  (format  nil  "%s%s%n%s"  "How  is  "  ?value 

"TACAN  self  test  Initiated  ?")) 

(One_Line_Question  .?newdesc) 

(Text_Choices  Push_And_Hold  Power-On  Push_And_Release  Other) 
(Choices  Push_And_Hold  Power_On  Push_And_Release  Other) 

.  (Lines_Selected  0)  Q 

r(Decision_Help_Text  (^rmat  nil  "%s%n%s%n%s" 

"For  initiating  self  test  there  are" 

"several  options.  These  options  are  based  on  " 

"the  type  of  control  unit  under  consideration")) 


' '  / 


KAMEL  MAKE 
FUNCTION 


(bind  ?tests_a  {create$  TAC  TAC  VOR  VOR) ) 

•  (bind  ?tests_b  (created  Slf  Sec  Slf  Sec) ) 

(bind  ?tests_c  (create$  SELF  SECONDARY  SELF  SECONDARY)) 
.n  (bind  ?tests_d  (create$  TACAN  TACAN  VOR  VOR)) 

fO 

(while  (<=  ?testtype  4  ) 

®  (bind  ?tal  (nth  ?testtype  ?tests_a)) 

(bind  ?tbl  (nth  ?testtype  ?tests_b) ) 


Check  for  initiate  at:  power  on,  push  &  release,  push  &hold 

(bind  ?testinit  (sym-cat  "Pilot"  ?tal  ?tbl  “Testinit")) 

(bind  ?testinitinst  ( symbol -to-instance-name  ?testinit  ) ) 
(bind  ?testinitans  (send  ?testinitinst  get-Mult i_Entry  ) ) 

(if  (  member  Power_On  ?testinitans  )  then 
(bind  ?P_INITIATE_AT_POWER_ON  TRUE  ) 
else 

(bind  ?P_INITIATE_AT_POWER_ON  FALSE  ) 

) 

(if  (  member  Push_And_Release  ?test ini tans  )  then 
(bind  ?P_INITIATE_PUSH_AND_RELEASE  TRUE  ) 
else 

(bind  ?P_INITIATE_PUSH_AND_RELEASE  FALSE  ) 

) 

(if  (  member  Push_And_Hold  ?testinitans  )  then 
(bind  ?P_INITIATE_PUSH_AND_HOLD  TRUE  ) 
else  )  G\ 

(bind  ?P_INITlATE_PUSH_AND_HOLD  FALSE  ) 

) 


(format  ? where  "%s%s%n" 


ADAPT  $P_INITIATE_PUSH_A1'ID_H0LD$  " 
?P_INITIATE_PUSH_AND_HOLD  ) 


KAMEL  RETRIEVE 
FUNCTION 


t 


1  APPLICATION  MODEL/DECISION-VECTOR 

1.1  Decision  Group  :  TACAN_SELF_TEST 


•  PilotTACSIfTestTerm  =  ^ 

•  PilotTACSIfTestInit  =  Push_And_Hold 

•  PilotTACSIfTestPhases  =  1 

•  PilotTACCompAffect  =  VOR 

•  PilotTACSIfPhasel  Ch  =  Channel_SelectJndicator  XA'Jndicator 

•  PilotTACSIfPhasel  ChChSlln  =  1 88.0 


PilotTACSIfPhasel  ChXYlnd  =  X 
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•  SEE  enactment  process  must  be  mature  to  be  followed  properly 


•  •  r 


00 


;»iterr;inea_Accive  :=  false: 


0& 


—  Look  at  TACAH  power.  Done  e.xecute  if  power  is  off. 
it  Power  »  Or,  t.^ien 


--S--  Induce  i£  auto  self  test  at  power  up. 
--sif  sp_::iit:ate_at_power_ons  then 
if  IJew_Power  *  oase_types . true  then 
Oetermined_Accive  ;=  true: 
end  i £ : 

--Send  IF 


--S--  Include  If  type  is  push  and  release 

--Sif  sp_:nitiate_push_and_releases  then 

if  Test_Activate  =  On  then  --  if  "button*  is  currently  pressed. 
Deter7nined_Active  :=  true: 

--S--  Include  if  button  restarts  the  test  if  test  is  already  running. 
--Sif  SP_AFFECT_OF_REPRESS_RESTARTS  THEN 

If  Lasc_Pass_Active  then  --  if  self  test  is  active 
Timer  :=  0.0:  --  reset  timer, 

end  i f : 

--Send  IF: 

--Sif  S?_AFFECT_OF_REPRESS_TERMINATES  THEN 

If  Last_?ass_Active  then  --  if  self  test  is  active 
Determined_Active  :=  false:  --  Deactivate  Self  Test, 
end  if: 

--Send  IF: 

else 

--  if  active  from  last  pass  let  the  timer  terminate  the  rest, 
if  Las'-._Pass_Active  then  --  if  active  from  last  pass  let 
Determ" ned_Active  :=  true; 
end  i f ; 
end  if: 

--Send  IF 

--S--  Include  if  type  butt ;n  is  push  and  hold. 

--Sif  S  P_INITI ATE_PUSH_ ANO_HOLDS  THEN 
if  Test_Activace  =  On  then 

Decermined_Active  : »  true:  — 
else 

D.etermined_Active  :*  false; 
end  i f ; 

‘-Send  IF 


--S--  Include  if  change  in  channel  interupts  self  test 
--Sif  SP_T£RM_KITH_CHANS  THEN 
if  Change_In_Channel  then 
Deceimiiied_Active  ;=  false: 
end  i f  ; 

--Send  IF 


if  Determir.ed_.Active  then 

--  If  first  pass  of  a  self  test  then  initialize  timer, 
if  not  I.asc_r3ss_.-.ccive  then 
Timer  ■ =  0 . 0 ; 
end  1 f ; 


--  I.ncreme.nt  self  rest  timer. 

Timer  :=  Timer  ♦  ireracion_Duracion; 

--  Searcr.  p.-.ase  end  rime  array  to  determine  v;hat  phase  rreif  ‘est  is  in 
ror  I  i.n  i  .  .:ium_F.hases  loop 


ADAPTABLE  CODE 


CO 


ROAMS  RETRIEVE 

FILE 


--  SELF_TEST  retrieve  file 
begin 

ADAPT  $P_PACKAGE_TEST_NAME$  DETERMINE_TACAN_SELF_TEST 

ADAPT  $P_PROCEDURE_TEST_NAME$  PROCESS_TACAN_SELF_TEST 

ADAPT  $P_TERM_WITH_CHAN$  FALSE 

ADAPT  $P_EXTERNAL_OUTPUTS$  TRUE 

ADAPT  $P_NUM_PHASES$  “1“ 

ADAPT  $P_END_TIME_OF_PHASES$  “0.0" 

ADAPT  $P_INITIATE_AT_POWER_ON$  ((S)  )  FALSE 

ADAPT  $P_INITIATE_PUSH_AND_REL^SE$  FALSE 

ADAPT  $P_INITIATE_PUSH_AND_HOLD$  TRUE 

ADAPT  $P_AFFECT_OF_REPRESS_RESTART$  FALSE 

ADAPT  $P_AFFECT_OF_REPRESS_TERMINATE$  FALSE 

ADAPT  $P_AFFECT_OF_REPRESS_NO_EFFECT$  FALSE 

ADAPT  $P_ST_FAIL$  FALSE 

COPY  type  SELF_TEST_BODY_A .  TACAN_SELF_Test . adb 
COPY  type  SELF_TEST_SPEC_A.  TACAN_SELF_Test .ads 


o 


--Declare  variables  required  within  package. 

*—  Number  of  phases 

Num_Phases  :  Ba8e_Types  .Signed_Integer_16  i; 

Phase  :  Base_Type8.Signed_Integer_16  :>  0; 

Iteration.Duration  :  float_32  :■  0.1; 

Timer  :  floac_32  :=  0.0; 

Last_Pass_Active  :  boolean  :=  false; 

Test_Active  :  Base_'IVpes.Discrete_State; 

—  Define  and  initialize  array  that  contains  end  times  for  each  self  test  phase. 

—  These  are  elapsed  time  from  self  test  initiation  that  each  phase  will 
--  terminate. 

type  float_array  is  array  (Base_Types .Signed_Integer_16  range  <>)  of  float_32; 
Phase_End_Time  :  float_array  (1..1) 

:»( 

!■> 

O.Oi  ; 


procedure  PBOCESS_TACAN_SECONDARY_TEST( 

T.'i^eclare  variables  for  this  procedure 

Te8t_Activate  :  in  Base_Types .Discrete_State; 
Power  v  in  Base_*IVpes  .SiRuBoolean; 

New_Power  :  in  Sim_Boolean; 


External_Test_Out :  out  Dase_Types . Discrete_State; 


Test_Fhase  :  out  Base_TVpes .Signed_Integer_16)  is 

--  Declare  and  initialize  local  variables. 

Phase.Found  :  Boolean  false;  --  Phase  Found  flag. 

Determined.Active  :  Boolean  :=  false; 

begin 

--  Initialize  some  variables. 

Phase_Found  ;*  false; 

Determined_Active  :=  false; 

--  Look  at  TACAN  power.  Dont  execute  if  power  is  off. 
if  Power  =  True  then 


if  Test_Act  ivate  =  On  tlieii 
Uet  e  i  m  i  iiod_Act  i  v<?  :  ^  t  l  uo  ; 

else 

Determined_Active  :=  false; 
e.nd  if; 


if  Pt’t  «-*i-nMiu'd_Act  iv«?  i  l>on 

--  If  first  pass  of  a  self  test  then  initialize  timer, 
if  not  Last_rass_Active  tiien 
Timer  :=  0.0; 
end  i f  ; 


--  Inci'ement  self  test  timer. 


ADAPTED  CODE 
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SOFTWARE 
W  PRODUCTIVITY 


LESSONS  LEARNED 


The  Role  of  ADARTS  in  Domain  Analysis 
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Synopsis  Segment 

Subdomain  implementations  provide  error  free  application  to 
application  communications  by  MIL-STD-ISSSB  bus.  Subdomain 
implementations  may  provide  1553B  bus  control,  1553B  remote 
terminal  and  1553B  bus  monitoring  functions. 


Conmonality 


Every  MHS  will  periodically  delete  expired  messages 
from  storage. 

Variability 

o  How  long  a  message  can  be  stored, 

o  How  often  will  storage  be  checked  for 

expired  messages. 

o  What  time  will  storage  be  checked. 

Decision  Model 

Description 

Decision 

Mnemonic  1 

How  long  a  message 
can  be  stored. 

selection  of  ( 

7  days, 

30  days, 

60  days, 

90  days 

) 

[STORAGE_LENGTH]  I 

How  often  will 
storage  be  checked 
for  expired 

1  messages. 

selection  of  ( 

once  a  day, 
once  a  week, 
once  a  month 

) 

[STORAGE_CHECK] 

1  What  time  will 

1  storage  be  checked. 

[ (1:00. .12:00) ] 

selection  of  ( 
am, 
pm 

) 

[STORAGE_TIME] 

[STORAGE_AM_PM] 

EXAMPLE. HFS 


Graphical  Decision  Modei  Segment 


if  Dlsplay_Lamps  then 


diaplyl2.dat 


RT  SOFTWARE  ARCHITECTURE  DIAGRAM 


MT  SOFTWARE  ARCHITECTURE  DIAGRAM 


Questions  or  comments  on  content  should  be  directed  to: 


K.C.  King 

Boeing/STARS  Demonstration  Program  Manager 
%  Duai  Inc. 

30  Skyiine  Drive 
Lake  Mary,  Fi  32746 
(407)  333-8880 

Jerri  Turner-Harris 

Rockweii  Command  &  Controi  Systems  Division 

MS  460-220 

3200  East  Renner  Road 

Richardson,  TX  75082-2402 

(214)  705-3151 


Or  to: 

Grady  Campbeii 

Software  Productivity  Consortium 
2214  Rock  Hiii  Road 
Herndon,  VA  22070 
(703)  742-7104 


Send  feedback  on  the  Consortium's  Video  Program  and 
orders  for  video  products  to: 

Technoiogy  Transfer  Ciearinghouse 
Software  Productivity  Consortium 
2214  Rock  Hiii  Road 
Herndon,  VA  22070 
(703)  742-7211 


